home *** CD-ROM | disk | FTP | other *** search
- /* makemake produziert ein makefile */
-
- PARSE ARG options
-
- IF ~SHOW("L","rexxsupport.library") THEN
- DO
- IF ~ADDLIB("rexxsupport.library",0,-30,34) THEN
- DO
- ECHO "No rexxsupport.library"
- RETURN 20
- END
- END
-
- alldirs="00"x
- allfiles=""
-
- DO WHILE alldirs~==""
- PARSE VAR alldirs dirname "00"x alldirs
- IF dirname~=="" THEN
- dirname=dirname"/"
- filelist=SHOWDIR(dirname,"File","00"x)
- DO WHILE filelist~==""
- PARSE VAR filelist filename "00"x filelist
- allfiles=allfiles||dirname||filename"00"x
- END
- dirlist=SHOWDIR(dirname,"Dir","00"x)
- DO WHILE dirlist~==""
- PARSE VAR dirlist subdirname "00"x dirlist
- alldirs=alldirs||dirname||subdirname"00"x
- END
- END
-
- count=0
-
- DO WHILE allfiles~==""
- parse var allfiles filename "00"x allfiles
- IF RIGHT(filename,2)==".c" THEN
- DO
- files.count=LEFT(filename,LENGTH(filename)-2)
- count=count+1
- END
- END
-
- scount=0
-
- DO FOREVER
- parse var options wildcard options
- IF wildcard=="" THEN
- BREAK
-
- IF LEFT(wildcard,1)=="*" THEN
- DO i=0 TO count-1
- IF UPPER(RIGHT(wildcard,LENGTH(wildcard)-1))==,
- UPPER(RIGHT(files.i,LENGTH(wildcard)-1))&,
- files.i~=="" THEN
- DO
- sfiles.scount=files.i
- scount=scount+1
- files.i=""
- END
- END
- IF RIGHT(wildcard,1)=="*" THEN
- DO i=0 TO count-1
- IF UPPER(LEFT(wildcard,LENGTH(wildcard)-1))==,
- UPPER(LEFT(files.i,LENGTH(wildcard)-1))&,
- files.i~=="" THEN
- DO
- sfiles.scount=files.i
- scount=scount+1
- files.i=""
- END
- END
- DO i=0 TO count-1
- IF UPPER(wildcard)==UPPER(files.i) THEN
- DO
- sfiles.scount=files.i
- scount=scount+1
- files.i=""
- END
- END
- END
-
- ECHO "# Machine-generated makefile- do not edit !"
-
- ECHO "OBJECTS=\"
- DO i=0 TO scount-1
- ECHO sfiles.i".o\"
- END
- ECHO
-
- ECHO "BOBJECTS=\"
- DO i=0 TO scount-1
- ECHO sfiles.i".bo\"
- END
- ECHO
-
- ADDRESS COMMAND "Type submake"
-